home *** CD-ROM | disk | FTP | other *** search
/ Monster Media 1994 #2 / Monster Media No. 2 (Monster Media)(1994).ISO / pcboard / cw_dm_10.zip / DOORMENU.PPE (.txt) < prev    next >
PCBoard Programming Language Executable  |  1994-06-01  |  14KB  |  473 lines
  1. ;------------------------------------------------------------------------------
  2. ;                                                   .ss.
  3. ;                                                   `²²'
  4. ;             .,sS$Ss,,s$  .,sS$$$Ss.  .,sS$Ss,,s$ .ss.  .sSs.
  5. ;           .d$$²^°²$$$$'.d$P²°^^²$P'.d$$²^°²$$$$'.$$$' .$$$²Sb,.
  6. ;           $$$'   .$$$' $$$²Sçsµ²' .$$$'   .$$$'.$$$' .$$$'  `$$b.
  7. ;           $$$b,,d$$$' ,$$$b,....,s$$$$b,,d$$$'.$$$;.,$$$'    ;$$$
  8. ;           `²S$$S²²S$$S²°²S$$$$S²°°²S$$$$$$',$$S²°²S$S'.sS$$$P²'
  9. ;                                    .sS²°$$$²²°"'       d²°'
  10. ;                                  .$$²  .$$'
  11. ;                                  $$$.,d$$'
  12. ;                                  `²S$$S²'
  13. ;------------------------------------------------------------------------------
  14. ; P.P.L.X. 2.OO                          (C)1996 - Lone Runner / AEGiS CoRP'96 
  15. ;------------------------------------------------------------------------------
  16. ; PPE 2.OO (plain) - Analysis ON - Postprocessing ON
  17. ;------------------------------------------------------------------------------
  18.  
  19.     Integer  INTEGER001
  20.     Integer  INTEGER002
  21.     Integer  INTEGER003
  22.     Integer  INTEGER004
  23.     Integer  INTEGER005
  24.     Integer  INTEGER006
  25.     Integer  INTEGER007
  26.     Integer  INTEGER008
  27.     Integer  INTEGER009
  28.     Integer  INTEGER010
  29.     Integer  INTEGER011
  30.     Integer  INTEGER012
  31.     String   STRING001
  32.     String   STRING002
  33.     String   STRING003
  34.     String   STRING004
  35.     String   STRING005
  36.     String   STRING006
  37.     String   STRING007
  38.     String   STRING008
  39.     String   STRING009
  40.     String   STRING010
  41.     String   STRING011
  42.     String   STRING012
  43.     String   STRING013
  44.     String   STRING014
  45.     String   STRING015
  46.     String   STRING016
  47.     String   STRING017
  48.     String   STRING018
  49.     String   STRING019
  50.     String   STRING020
  51.     String   STRING021
  52.     String   STRING022
  53.     String   STRING023
  54.     String   STRING024
  55.     String   STRING025
  56.     String   STRING026
  57.     String   STRING027
  58.     String   STRING028
  59.     String   STRING029
  60.     String   STRING030
  61.     String   STRING031
  62.     String   STRING032
  63.     String   STRING033
  64.     String   STRING034
  65.     String   STRING035
  66.     String   STRING036
  67.     String   STRING037
  68.     String   STRING038
  69.     String   STRING039
  70.     String   STRING040
  71.     String   STRING041
  72.     String   STRING042
  73.  
  74. ;------------------------------------------------------------------------------
  75.  
  76.     STRING005 = TokenStr()
  77.     If (Strip(STRING005, Chr(32)) == "") Goto LABEL001
  78.     KbdStuff "OP " + STRING005 + Chr(13)
  79.     End
  80.     :LABEL001
  81.     INTEGER007 = 36
  82.     STRING032 = PPEPath() + PPEName() + ".CNF"
  83.     STRING040 = 35110
  84.     STRING038 = "N"
  85.     STRING042 = "U" + "n" + "r" + "e" + "g" + "i" + "s" + "t" + "e" + "r" + "e" + "d"
  86.     If (PPEName() == "BBSLISTR") STRING039 = 48239
  87.     If (PPEName() == "BIRTHDAY") STRING039 = 58111
  88.     If (PPEName() == "CONFJOIN") STRING039 = 27233
  89.     If (PPEName() == "DOORMENU") STRING039 = 27233
  90.     If (PPEName() == "FILEMENU") STRING039 = 27233
  91.     If (PPEName() == "MAINMENU") STRING039 = 27233
  92.     If (PPEName() == "HOWHEARD") STRING039 = 18744
  93.     If (PPEName() == "NEWUSERS") STRING039 = 18744
  94.     If (PPEName() == "MSGQUEST") STRING039 = 10183
  95.     If (PPEName() == "PRO-VOTE") STRING039 = 30147
  96.     If (PPEName() == "REMINDME") STRING039 = 34515
  97.     If (PPEName() == "SPEEDLIM") STRING039 = 62956
  98.     If (PPEName() == "SUBSCRIP") STRING039 = 22239
  99.     If (PPEName() == "TIMEZONE") STRING039 = 38271
  100.     If (PPEName() == "USERNEWS") STRING039 = 51818
  101.     If (PPEName() == "WELCOMAT") STRING039 = 40621
  102.     If (Exist(STRING032)) Then
  103.         FOpen 1, STRING032, 0, 0
  104.         FGet 1, STRING027
  105.         FGet 1, INTEGER010
  106.         FGet 1, INTEGER009
  107.         FClose 1
  108.     Else
  109.         PrintLn "@X0CError - Config file not found - Please notify SysOp"
  110.         End
  111.     Endif
  112.     Tokenize STRING027
  113.     GetToken STRING036
  114.     GetToken STRING037
  115.     If ((INTEGER010 == 0) || (INTEGER009 == 79228)) Then
  116.         STRING038 = "N"
  117.         Goto LABEL005
  118.     Else
  119.         Goto LABEL002
  120.     Endif
  121.     :LABEL002
  122.     STRING041 = "N"
  123.     If (INTEGER009 == 52888) STRING041 = "Y"
  124.     If (INTEGER009 == 103750) STRING041 = "Y"
  125.     If (INTEGER009 == 77670) STRING041 = "Y"
  126.     If (INTEGER009 == 32139) STRING041 = "Y"
  127.     If (INTEGER009 == 40700) STRING041 = "Y"
  128.     If (INTEGER009 == 49190) STRING041 = "Y"
  129.     If (INTEGER009 == 50402) STRING041 = "Y"
  130.     If (INTEGER009 == 58961) STRING041 = "Y"
  131.     If (INTEGER009 == 67450) STRING041 = "Y"
  132.     If (INTEGER009 == 80838) STRING041 = "Y"
  133.     If (INTEGER009 == 103175) STRING041 = "Y"
  134.     If (INTEGER009 == 67270) STRING041 = "Y"
  135.     If (INTEGER009 == 55461) STRING041 = "Y"
  136.     If (INTEGER009 == 64023) STRING041 = "Y"
  137.     If (INTEGER009 == 72512) STRING041 = "Y"
  138.     If (INTEGER009 == 85900) STRING041 = "Y"
  139.     If (INTEGER009 == 63607) STRING041 = "Y"
  140.     If (INTEGER009 == 72098) STRING041 = "Y"
  141.     If (INTEGER009 == 80845) STRING041 = "Y"
  142.     If (INTEGER009 == 14372) STRING041 = "Y"
  143.     If (INTEGER009 == 22932) STRING041 = "Y"
  144.     If (INTEGER009 == 31421) STRING041 = "Y"
  145.     If (INTEGER009 == 44809) STRING041 = "Y"
  146.     If (INTEGER009 == 67145) STRING041 = "Y"
  147.     If (INTEGER009 == 67813) STRING041 = "Y"
  148.     If (STRING041 == "Y") STRING038 = "N"
  149.     If (STRING041 == "Y") Goto LABEL005
  150.     If ((INTEGER010 == 0) || (INTEGER009 == 79228)) Then
  151.         STRING038 = "N"
  152.         Goto LABEL005
  153.     Else
  154.         Goto LABEL003
  155.     Endif
  156.     :LABEL003
  157.     STRING033 = Left(STRING036, 1)
  158.     STRING034 = Left(STRING037, 2)
  159.     STRING035 = STRING033 + STRING034
  160.     If (STRING033 == "A") INTEGER011 = 1934
  161.     If (STRING033 == "B") INTEGER011 = 2859
  162.     If (STRING033 == "C") INTEGER011 = 3743
  163.     If (STRING033 == "D") INTEGER011 = 4660
  164.     If (STRING033 == "E") INTEGER011 = 5534
  165.     If (STRING033 == "F") INTEGER011 = 6471
  166.     If (STRING033 == "G") INTEGER011 = 7325
  167.     If (STRING033 == "H") INTEGER011 = 8287
  168.     If (STRING033 == "I") INTEGER011 = 9119
  169.     If (STRING033 == "J") INTEGER011 = 1096
  170.     If (STRING033 == "K") INTEGER011 = 2928
  171.     If (STRING033 == "L") INTEGER011 = 3885
  172.     If (STRING033 == "M") INTEGER011 = 4737
  173.     If (STRING033 == "N") INTEGER011 = 5674
  174.     If (STRING033 == "O") INTEGER011 = 6546
  175.     If (STRING033 == "P") INTEGER011 = 7463
  176.     If (STRING033 == "Q") INTEGER011 = 8355
  177.     If (STRING033 == "R") INTEGER011 = 9242
  178.     If (STRING033 == "S") INTEGER011 = 1164
  179.     If (STRING033 == "T") INTEGER011 = 2031
  180.     If (STRING033 == "U") INTEGER011 = 3973
  181.     If (STRING033 == "V") INTEGER011 = 4820
  182.     If (STRING033 == "W") INTEGER011 = 5782
  183.     If (STRING033 == "X") INTEGER011 = 6619
  184.     If (STRING033 == "Y") INTEGER011 = 7591
  185.     If (STRING033 == "Z") INTEGER011 = 8408
  186.     INTEGER008 = S2I(STRING035, INTEGER007) + INTEGER010 + STRING039 + INTEGER011
  187.     INTEGER012 = S2I(STRING035, INTEGER007) + INTEGER010 + STRING040 + INTEGER011
  188.     If (INTEGER009 == INTEGER008) Goto LABEL004
  189.     If (INTEGER009 == INTEGER012) Goto LABEL004
  190.     Goto LABEL015
  191.     :LABEL004
  192.     STRING038 = "Y"
  193.     If (Len(INTEGER010) == 1) STRING029 = "000"
  194.     If (Len(INTEGER010) == 2) STRING029 = "00"
  195.     If (Len(INTEGER010) == 3) STRING029 = "0"
  196.     If (Len(INTEGER010) == 4) STRING029 = ""
  197.     STRING030 = INTEGER010
  198.     STRING031 = STRING029 + STRING030
  199.     If (Len(STRING027) == 30) STRING028 = ""
  200.     If (Len(STRING027) == 29) STRING028 = ""
  201.     If (Len(STRING027) == 28) STRING028 = " "
  202.     If (Len(STRING027) == 27) STRING028 = " "
  203.     If (Len(STRING027) == 26) STRING028 = "  "
  204.     If (Len(STRING027) == 25) STRING028 = "  "
  205.     If (Len(STRING027) == 24) STRING028 = "   "
  206.     If (Len(STRING027) == 23) STRING028 = "   "
  207.     If (Len(STRING027) == 22) STRING028 = "    "
  208.     If (Len(STRING027) == 21) STRING028 = "    "
  209.     If (Len(STRING027) == 20) STRING028 = "     "
  210.     If (Len(STRING027) == 19) STRING028 = "     "
  211.     If (Len(STRING027) == 18) STRING028 = "      "
  212.     If (Len(STRING027) == 17) STRING028 = "      "
  213.     If (Len(STRING027) == 16) STRING028 = "       "
  214.     If (Len(STRING027) == 15) STRING028 = "       "
  215.     If (Len(STRING027) == 14) STRING028 = "        "
  216.     If (Len(STRING027) == 13) STRING028 = "        "
  217.     If (Len(STRING027) == 12) STRING028 = "         "
  218.     If (Len(STRING027) == 11) STRING028 = "         "
  219.     If (Len(STRING027) == 10) STRING028 = "          "
  220.     If (Len(STRING027) == 9) STRING028 = "          "
  221.     If (Len(STRING027) == 8) STRING028 = "           "
  222.     If (Len(STRING027) == 7) STRING028 = "           "
  223.     If (Len(STRING027) == 6) STRING028 = "            "
  224.     If (Len(STRING027) == 5) STRING028 = "            "
  225.     :LABEL005
  226.     STRING008 = "1.0 "
  227.     INTEGER002 = 0
  228.     FOpen 1, STRING032, 0, 0
  229.     FGet 1, STRING027
  230.     FGet 1, INTEGER010
  231.     FGet 1, INTEGER009
  232.     FClose 1
  233.     STRING014 = PPEPath() + "DOORMENU.DES"
  234.     STRING006 = PPEPath() + String(CurConf()) + ".MNU"
  235.     If (!Exist(STRING006)) STRING006 = PPEPath() + "0.MNU"
  236.     FOpen 1, STRING006, 0, 0
  237.     FGet 1, STRING007
  238.     FClose 1
  239.     If (INTEGER009 == INTEGER008) STRING038 = "Y"
  240.     If (INTEGER009 == INTEGER012) STRING038 = "Y"
  241.     If (STRING038 == "N") Then
  242.         STRING009 = "@X0BDoorMenu v" + STRING008 + " # " + "@X0F" + STRING042 + "@X0B" + " ■ " + STRING027
  243.     Endif
  244.     If (STRING038 == "Y") Then
  245.         STRING009 = "@X0BDoorMenu v" + STRING008 + " #@X0F" + STRING031 + "@X0B ■ " + STRING027
  246.     Endif
  247.     INTEGER003 = 0
  248.     FOpen 1, STRING007, 0, 0
  249.     :LABEL006
  250.     FGet 1, STRING002
  251.     If (!(STRING002 == "")) INTEGER003 = INTEGER003 + 1
  252.     If (STRING002 == "") Goto LABEL007
  253.     Goto LABEL006
  254.     :LABEL007
  255.     FClose 1
  256.     Cls
  257.     FOpen 1, STRING007, 0, 0
  258.     :LABEL008
  259.     FGet 1, STRING002
  260.     STRING015 = ""
  261.     If (STRING002 == "") Goto LABEL011
  262.     STRING002 = Replace(STRING002, Chr(44), Chr(59))
  263.     Tokenize STRING002
  264.     GetToken STRING012
  265.     GetToken STRING011
  266.     GetToken STRING013
  267.     FOpen 2, STRING014, 0, 0
  268.     :LABEL009
  269.     FGet 2, STRING003
  270.     FGet 2, STRING004
  271.     If (STRING003 == "") Goto LABEL010
  272.     If (STRING003 == STRING012) Then
  273.         STRING015 = STRING004
  274.     Else
  275.         Goto LABEL009
  276.     Endif
  277.     :LABEL010
  278.     FClose 2
  279.     INTEGER005 = 10 - Len(STRING012)
  280.     For INTEGER004 = 1 To INTEGER005
  281.         STRING012 = String(STRING012) + " "
  282.     Next
  283.     If (INTEGER001 == 0) Gosub LABEL014
  284.     INTEGER002 = INTEGER002 + 1
  285.     INTEGER001 = INTEGER001 + 1
  286.     If (INTEGER001 == 1) STRING017 = STRING012
  287.     If (INTEGER001 == 2) STRING018 = STRING012
  288.     If (INTEGER001 == 3) STRING019 = STRING012
  289.     If (INTEGER001 == 4) STRING020 = STRING012
  290.     If (INTEGER001 == 5) STRING021 = STRING012
  291.     If (INTEGER001 == 6) STRING022 = STRING012
  292.     If (INTEGER001 == 7) STRING023 = STRING012
  293.     If (INTEGER001 == 8) STRING024 = STRING012
  294.     If (INTEGER001 == 9) STRING025 = STRING012
  295.     If (INTEGER001 == 10) STRING026 = STRING012
  296.     If (Len(INTEGER002) == 1) STRING016 = "  "
  297.     If (Len(INTEGER002) == 2) STRING016 = " "
  298.     If (Len(INTEGER002) == 3) STRING016 = ""
  299.     If (Len(STRING013) == 1) STRING010 = "  "
  300.     If (Len(STRING013) == 2) STRING010 = " "
  301.     If (Len(STRING013) == 3) STRING010 = ""
  302.     STRING002 = "@X0A" + STRING016 + String(INTEGER002) + "@X0F " + STRING012 + "@X0B" + STRING010 + STRING013 + " @X0F " + STRING015
  303.     PrintLn STRING002
  304.     If ((INTEGER001 == 10) && !(INTEGER002 == INTEGER003)) Gosub LABEL012
  305.     Goto LABEL008
  306.     :LABEL011
  307.     STRING001 = ""
  308.     FClose 1
  309.     PrintLn 
  310.     InputStr "@X0EEnter the DOOR # to Open (Enter)=none", STRING001, 11, 8, Mask_Num() + Mask_Alpha(), 8
  311.     INTEGER006 = STRING001
  312.     Gosub LABEL016
  313.     If (STRING001 == "") Then
  314.         STRING001 = Chr(13)
  315.         KbdString STRING001
  316.         End
  317.     Endif
  318.     If (INTEGER006 > INTEGER003) Then
  319.         STRING001 = Chr(13)
  320.         KbdString STRING001
  321.         End
  322.     Endif
  323.     STRING001 = Chr(13) + STRING001 + Chr(13)
  324.     KbdString STRING001
  325.     End
  326.     :LABEL012
  327.     DefColor
  328.     INTEGER001 = 0
  329.     STRING001 = ""
  330.     PrintLn 
  331.     InputStr "@X0EEnter the DOOR # to Open  (Q)=Quit  (Enter)=Next Screen", STRING001, 11, 8, Mask_Num() + Mask_Alpha(), 8
  332.     INTEGER006 = STRING001
  333.     If (STRING001 == "Q") Goto LABEL013
  334.     Gosub LABEL016
  335.     If ((INTEGER006 > INTEGER002) || ((INTEGER006 <= INTEGER002 - 10) && (INTEGER006 > 0))) Return
  336.     If (STRING001 == "") Return
  337.     STRING001 = Chr(13) + STRING001 + Chr(13)
  338.     KbdString STRING001
  339.     End
  340.     :LABEL013
  341.     FClose 1
  342.     STRING001 = Chr(13)
  343.     KbdString STRING001
  344.     End
  345.     :LABEL014
  346.     Cls
  347.     PrintLn STRING009
  348.     PrintLn 
  349.     PrintLn "  @X0D┌─@X0B Door No.  @X0D┌─@X0B Security Level Required (Yours is @X0F@SECURITY@@X0B)"
  350.     PrintLn "  @X0D│   ┌─@X0B Name  @X0D│   ┌────────────────────@X0B Door Description@X0D ────────────────────┐"
  351.     PrintLn "  @X0D│   │        │   │                                                          │"
  352.     Return
  353.     :LABEL015
  354.     Cls
  355.     PrintLn 
  356.     PrintLn "Invalid Registration Code!"
  357.     Beep
  358.     Delay 182
  359.     End
  360.     :LABEL016
  361.     If ((((((((((STRING001 == "1") || (STRING001 == "11")) || (STRING001 == "21")) || (STRING001 == "31")) || (STRING001 == "41")) || (STRING001 == "51")) || (STRING001 == "61")) || (STRING001 == "71")) || (STRING001 == "81")) || (STRING001 == "91")) Then
  362.         STRING001 = STRING017
  363.         Return
  364.     Endif
  365.     If ((((((((((STRING001 == "2") || (STRING001 == "12")) || (STRING001 == "22")) || (STRING001 == "32")) || (STRING001 == "42")) || (STRING001 == "52")) || (STRING001 == "62")) || (STRING001 == "72")) || (STRING001 == "82")) || (STRING001 == "92")) Then
  366.         STRING001 = STRING018
  367.         Return
  368.     Endif
  369.     If ((((((((((STRING001 == "3") || (STRING001 == "13")) || (STRING001 == "23")) || (STRING001 == "33")) || (STRING001 == "43")) || (STRING001 == "53")) || (STRING001 == "63")) || (STRING001 == "73")) || (STRING001 == "83")) || (STRING001 == "93")) Then
  370.         STRING001 = STRING019
  371.         Return
  372.     Endif
  373.     If ((((((((((STRING001 == "4") || (STRING001 == "14")) || (STRING001 == "24")) || (STRING001 == "34")) || (STRING001 == "44")) || (STRING001 == "54")) || (STRING001 == "64")) || (STRING001 == "74")) || (STRING001 == "84")) || (STRING001 == "94")) Then
  374.         STRING001 = STRING020
  375.         Return
  376.     Endif
  377.     If ((((((((((STRING001 == "5") || (STRING001 == "15")) || (STRING001 == "25")) || (STRING001 == "35")) || (STRING001 == "45")) || (STRING001 == "55")) || (STRING001 == "65")) || (STRING001 == "75")) || (STRING001 == "85")) || (STRING001 == "95")) Then
  378.         STRING001 = STRING021
  379.         Return
  380.     Endif
  381.     If ((((((((((STRING001 == "6") || (STRING001 == "16")) || (STRING001 == "26")) || (STRING001 == "36")) || (STRING001 == "46")) || (STRING001 == "56")) || (STRING001 == "66")) || (STRING001 == "76")) || (STRING001 == "86")) || (STRING001 == "96")) Then
  382.         STRING001 = STRING022
  383.         Return
  384.     Endif
  385.     If ((((((((((STRING001 == "7") || (STRING001 == "17")) || (STRING001 == "27")) || (STRING001 == "37")) || (STRING001 == "47")) || (STRING001 == "57")) || (STRING001 == "67")) || (STRING001 == "77")) || (STRING001 == "87")) || (STRING001 == "97")) Then
  386.         STRING001 = STRING023
  387.         Return
  388.     Endif
  389.     If ((((((((((STRING001 == "8") || (STRING001 == "18")) || (STRING001 == "28")) || (STRING001 == "38")) || (STRING001 == "48")) || (STRING001 == "58")) || (STRING001 == "68")) || (STRING001 == "78")) || (STRING001 == "88")) || (STRING001 == "98")) Then
  390.         STRING001 = STRING024
  391.         Return
  392.     Endif
  393.     If ((((((((((STRING001 == "9") || (STRING001 == "19")) || (STRING001 == "29")) || (STRING001 == "39")) || (STRING001 == "49")) || (STRING001 == "59")) || (STRING001 == "69")) || (STRING001 == "79")) || (STRING001 == "89")) || (STRING001 == "99")) Then
  394.         STRING001 = STRING025
  395.         Return
  396.     Endif
  397.     If ((((((((((STRING001 == "10") || (STRING001 == "20")) || (STRING001 == "30")) || (STRING001 == "40")) || (STRING001 == "50")) || (STRING001 == "60")) || (STRING001 == "70")) || (STRING001 == "80")) || (STRING001 == "00")) || (STRING001 == "100")) Then
  398.         STRING001 = STRING026
  399.         Return
  400.     Endif
  401.     Return
  402.  
  403. ;------------------------------------------------------------------------------
  404. ;
  405. ; Usage report (before postprocessing)
  406. ;
  407. ; ■ Statements used :
  408. ;
  409. ;    8       End
  410. ;    3       Cls
  411. ;    40      Goto 
  412. ;    172     Let 
  413. ;    11      PrintLn 
  414. ;    149     If 
  415. ;    6       FOpen 
  416. ;    7       FClose 
  417. ;    11      FGet 
  418. ;    1       DefColor
  419. ;    2       InputStr 
  420. ;    4       Gosub 
  421. ;    14      Return
  422. ;    1       Delay 
  423. ;    2       Tokenize 
  424. ;    5       GetToken 
  425. ;    1       Beep
  426. ;    1       KbdStuff 
  427. ;    5       KbdString 
  428. ;
  429. ;
  430. ; ■ Functions used :
  431. ;
  432. ;    59      +
  433. ;    2       -
  434. ;    237     ==
  435. ;    1       <
  436. ;    2       <=
  437. ;    3       >
  438. ;    2       >=
  439. ;    23      !
  440. ;    4       &&
  441. ;    94      ||
  442. ;    37      Len(
  443. ;    2       Left()
  444. ;    11      Chr()
  445. ;    1       Replace()
  446. ;    1       Strip()
  447. ;    3       String()
  448. ;    2       Mask_Alpha()
  449. ;    2       Mask_Num()
  450. ;    1       CurConf()
  451. ;    4       PPEPath()
  452. ;    2       Exist()
  453. ;    2       S2I()
  454. ;    1       TokenStr()
  455. ;    17      PPEName()
  456. ;
  457. ;------------------------------------------------------------------------------
  458. ;
  459. ; Analysis flags : No flag
  460. ;
  461. ;------------------------------------------------------------------------------
  462. ;
  463. ; Postprocessing report
  464. ;
  465. ;    1       For/Next
  466. ;    0       While/EndWhile
  467. ;    18      If/Then or If/Then/Else
  468. ;    0       Select Case
  469. ;
  470. ;------------------------------------------------------------------------------
  471. ;                 AEGiS Corp - Break the routines, code against the machines!
  472. ;------------------------------------------------------------------------------
  473.